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--file PSADefs.mesa edited by Sweet May 10, 1978 11:50 AM 

DIRECTORY 

AUoDefs: FROM "altodefs" USING [BYTE], 

CodeDefs: FROM "codedefs" USING [BDOComponentNames, BDOIndex, CCIndex, CodeCCIndex, CodeChunkType, Co 
**mpareC1 ass , EXLRIndex, FullBitAddress, JumpType, LabelCCIndex, Lexeme, Stklndex, TempStateRecord], 

SymDefs: FROM "symdefs" USING [ContextLevel , CSEIndex, ISEIndex, recordCSEIndex, SEIndex], 

TreeDefs: FROM "treedefs" USING [TreeLink]; 

DEFINITIONS FROM AUoDefs. SymDefs, CodeDefs, TreeDefs; 

PSADefs: DEFINITIONS - BEGIN 

-- from foptable.mesa 

PushEffect: PROCEDURE [b: C0..256)] RETURNS [[0..3]]; 
PopEffect: PROCEDURE [b: [0..266)] RETURNS [[0..7]]; 
NumberOfParams: PROCEDURE [b: [0..256)] RETURNS [[0..3]]; 
MinimalStack: PUBLIC PROCEDURE [b: CO.,256)] RETURNS [BOOLEAN]; 

-- from address. mesa 
Addresslnit: PROCEDURE; 
Cload: PROCEDURE [r: BDOIndex]; 
Cstore: PROCEDURE [r: BDOIndex]; 
FieldParam: PROCEDURE [BDOIndex] RETURNS [WORD]; 
GetFrame: PROCEDURE [r: BDOIndex]; 

addfulladdrtobits: PROCEDURE [f: FullBitAddress, b: CARDINAL] RETURNS [rf: FullBitAddress]; 
copyBDOItem: PROCEDURE [r: BDOIndex] RETURNS [rr: BDOIndex]; 
genBDOItem: PROCEDURE RETURNS [r: BDOIndex]; 
loadaddress: PROCEDURE [r: BDOIndex] RETURNS [CARDINAL]; 
loadlexaddress: PROCEDURE [1: Lexeme] RETURNS [CARDINAL]; 
loadseiaddress: PROCEDURE [sei: ISEIndex] RETURNS [CARDINAL]; 
loadtsonaddress: PROCEDURE [t: TreeLink] RETURNS [CARDINAL]; 
loadtsonchars: PROCEDURE [t: TreeLink, nchars: CARDINAL]; 
makeBDOItem: PROCEDURE [1: Lexeme] RETURNS [bdo Lexeme]; 
makeTOSaddrBDOItem: PROCEDURE [psize: CARDINAL] RETURNS [r: BDOIndex]; 
makeTOSlex: PROCEDURE [nwords: CARDINAL] RETURNS [bdo Lexeme]; 
makeretlex: PROCEDURE [nwords, psize: CARDINAL] RETURNS [Lexeme]; 
maketempaddrBDOItem: PROCEDURE [tlex: Lexeme] RETURNS [r: BDOIndex]; 
maketsonBDOItem: PROCEDURE [t: TreeLink] RETURNS [bdo Lexeme]; 
pstorelex: PROCEDURE [wordoffset, nwords: CARDINAL]; 
pushcomponent: PROCEDURE [t: BDOComponentNames. r: BDOIndex]; 
releaseBDOItem: PROCEDURE [r: BDOIndex]; 
rmakeBDOItem: PROCEDURE [1: Lexeme] RETURNS [BDOIndex]; 
storelex; PROCEDURE [1: ContextLevel, wordoffset, nwords: CARDINAL]; 

--from calls. mesa 

Csyscall: PROCEDURE [alpha: BYTE]; 

Csyscalln: PROCEDURE [alpha: BYTE, n: CARDINAL]; 

Csyserror: PROCEDURE; 

LogHeapFree: SIGNAL [calltree: TreeLink] RETURNS [BOOLEAN, se Lexeme]; 

--from code. mesa 

P5module: PROCEDURE; 
P5Error: PROCEDURE [n: CARDINAL]; 
ACStackOverflow: SIGNAL; 
ACStackUnderflow: SIGNAL; 
StackNotEmptyAtStatement: SIGNAL; 
CodeNotlmplemented: SIGNAL; 
DeletingUnreachableCode: SIGNAL; 
CodePassInconsistancy: SIGNAL; 

--from driver. mesa 

AllocCodeCCItem: PROCEDURE [n: [0..3]] RETURNS [c: CodeCCIndex]; 

bitsforoperand: PROCEDURE [t: TreeLink] RETURNS [CARDINAL]; 

bitsfortype: PROCEDURE [sei: SEIndex] RETURNS [CARDINAL]; 

ccellalloc: PROCEDURE [t: CodeChunkType]; 

CioutO: PROCEDURE [i: BYTE]; 

Cioutl: PROCEDURE [i: BYTE, pi: WORD]; 

Ciout2: PROCEDURE [i: BYTE, pi, p2: WORD]; 

CioutS: PROCEDURE [i: BYTE, pi, p2, p3: WORD]; 

Cmodule: PROCEDURE; 

computeframesize: PROCEDURE [fs: CARDINAL] RETURNS [CARDINAL]; 

Coutjump; PROCEDURE [jt: JumpType, 1: LabelCCIndex]; 

createlabel: PROCEDURE RETURNS [c: LabelCCIndex]; 

deletecell: PROCEDURE [c: CCIndex]; 

labelalloc: PROCEDURE RETURNS [c: LabelCCIndex]; 
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maketreeliteral: PROCEDURE [val : WORD] RETURNS [TreeUnk]; 
nextvar: PROCEDURE [sei: ISEIndex] RETURNS [ISEIndex]; 
operandtype: PROCEDURE [t: TreeLink] RETURNS [sei: CSEIndex]; 
ParamCount: PROCEDURE [c: CodeCCIndex] RETURNS [CARDINAL]; 
popinvals: PROCEDURE [irecord: recordCSEIndex, isenable: BOOLEAN]; 
prewar: PROCEDURE [ssei, sei : ISEIndex] RETURNS [ISEIndex]; 
ReleaseLock: PROCEDURE; 
RequireStack: PROCEDURE [n: INTEGER]; 
treeliteral: PROCEDURE [t: TreeLink] RETURNS [BOOLEAN]; 
treeliteralvalue: PROCEDURE [t: TreeLink] RETURNS [WORD]; 
wordsforoperand: PROCEDURE [t: TreeLink] RETURNS [n: CARDINAL]; 
wordsforsei: PROCEDURE [sei: SEIndex] RETURNS [CARDINAL]; 

— from flow. mesa 

Cfin: PROCEDURE [t: TreeLink, tf: BOOLEAN, label: LabelCCIndex]; 

Cflow: PROCEDURE [t: TreeLink. tf: BOOLEAN, label: LabelCCIndex]; 

CompareFn: PROCEDURE [class: CompareClass, code: BOOLEAN, length: [1..2]] RETURNS [BYTE]; 

getlabelmark: PROCEDURE RETURNS [EXLRIndex]; 

insertlabel: PROCEDURE [c: LabelCCIndex]; 

makeEXITlabel: PROCEDURE RETURNS [exit, loop: LabelCCIndex]; 

poplabels: PROCEDURE [labelmark: EXLRIndex]; 

--from stack. mesa 

StackFinal: PROCEDURE; 

Stacklnit: PROCEDURE; 

adjustacstack: PROCEDURE [x: INTEGER]; 

bltnwordsfromstack: PROCEDURE [n: CARDINAL] RETURNS [tlex: se Lexeme]; 

chkacstack: PROCEDURE [b: BYTE]; 

chkrandsonstack: PROCEDURE [n: CARDINAL]; 

clears tack: PROCEDURE; 

deletetomark: PROCEDURE; 

dumpstack: PROCEDURE; 

freeheaplex: PROCEDURE [1: se Lexeme]; 

freetemplist: PROCEDURE; 

freetempsei: PROCEDURE [sei: ISEIndex]; 

genanonlex: PROCEDURE [nwords: CARDINAL] RETURNS [1: se Lexeme]; 

genstringbodylex: PROCEDURE [nchars: CARDINAL] RETURNS [1: se Lexeme]; 

genheaplex: PROCEDURE RETURNS[1: se Lexeme]; 

gentemplex: PROCEDURE [nwords: CARDINAL] RETURNS [1: se Lexeme]; 

incrstack: PROCEDURE [n: CARDINAL]; 

marks tack: PROCEDURE; 

newstack: PROCEDURE RETURNS [s: Stklndex]; 

pop: PROCEDURE; 

poptempstate: PROCEDURE [p: POINTER TO TempStateRecord]; 

purgeheaplist: PROCEDURE[oldheapl ist: ISEIndex]; 

purgependtemplist: PROCEDURE; 

pushheaplist: PROCEDURE RETURNS[oldheapl ist: ISEIndex]; 

pushtempstate: PROCEDURE [p: POINTER TO TempStateRecord, newfs: CARDINAL]; 

putrandsonstack: PROCEDURE [n: CARDINAL]; 

releasetemplex: PROCEDURE [1: se Lexeme]; 

resettomark: PROCEDURE; 

restoreoldstack: PROCEDURE [s: Stklndex]; 

stackoff : PROCEDURE; 

stackon: PROCEDURE; 

unmarkstack: PROCEDURE; 

-- from store. mesa 

CRassign: PROCEDURE [r:BDOIndex, t: TreeLink, sei: ISEIndex, usePut: BOOLEAN]; 

sCassign: PROCEDURE [sei: ISEIndex]; 

slCassign: PROCEDURE [sei: ISEIndex, 1: Lexeme, exp: BOOLEAN, nwords: CARDINAL]; 

transferconstruct: PROCEDURE [r: BDOIndex, t: TreeLink. tsei: CSEIndex]; 

easilyaddressed: PROCEDURE [r: BDOIndex] RETURNS [BOOLEAN]; 

LongTreeAddress: PROCEDURE [t: TreeLink] RETURNS [long: BOOLEAN]; 

LongLexAddress: PROCEDURE [1: Lexeme] RETURNS [long: BOOLEAN]; 

END. 



